home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / comms / dialers.arj / MMV32.T < prev    next >
Text File  |  1993-11-20  |  3KB  |  78 lines
  1.     :: Advanced dialer for MultiTech MMV32        Rev. 11-20-93
  2. dialnum        if S>19200 sp 19200
  3.     gosub waketb        :: get modem to respond
  4.     pat; pat 9l OK
  5.     put "AT"
  6.     if js2,mnp   put "&E2&E4&E13\44BA0&B0"
  7.     if js2,mnp_s put "&E5"
  8.     if js2,a_mnp put "&E1"
  9.     if js2,c put "&E15"
  10.     if js2,_b put "&BS0"
  11.     if "as5<2500" put "\44MB%s5"
  12.     if dp ss s2 "(c:)(.*)";  if %z2 put "%z2 "    :: for extra commands
  13.     if "%s3>8" put "S7=70"        : longer wait if long distance
  14.     put "X4&Q0"
  15.     put "Q0S10=10V1\r"; wait -f2
  16.     if %alds if ps3,0 putw "ATS8=10\r"
  17.     put "%mprefix";  put "%s3%alds";  dis -Q
  18.     if js2,man put ";\r"; echo "Hit F1 when Tone is heard"; t; put "ATD"
  19.     put "\r";  dis -t
  20.     if "js3,;"  accept s1 "Lift Telephone Receiver, Hit ENTER"; o; return
  21.     pat 1l "CONNECT\r"; pat 2l "NO CARRIER"; pat 3l "BUSY"; pat 4l RING;
  22.     pat 5l "ECT 12"; pat 6l "ECT 24"; pat 7l "CONNECT FAST"
  23.     pat 8l "NO DIALTONE"; pat 10l "CONNECT 300"
  24.     pat 11l "CONNECT 96"; pat 12l "CONNECT 192"
  25.     pat 13l "VOICE"; pat 14l "NO ANS"; pat 15l "CONNECT 4800"
  26.     pat 16l "ECT 7200";  pat 17l "ECT 12000";  pat 18l "ECT 14400"
  27.     wait -f72
  28.     while "4&&!L>3" wait -f40    :: wait for a few rings only
  29.     sets s8 %y2
  30.     if "n||8||9||2||3||4||13||14" goto sorry
  31.     dis -d
  32.     if dd while "!c&&L<20" sleep 1    : For modems with slow carrier det
  33.     if dp estimate 0 300;  if "hCONNECT" ss y "[0-9]+";  estimate 0 z0
  34.     if "hCARRIER" ss y "[0-9]+";  estimate 0 z0
  35.     if !%s1 goto ns1
  36.     if !Js1,s handshake slow; lput "Handshake SLOW: "
  37.     echo "Speed Locked"; goto mm2end
  38. ns1:    if "hARQ" echo "MNP Connected";  handshake both; goto mm2end
  39.     if "hREL" echo "MNP Connected";  handshake both; goto mm2end
  40.     if "hERROR-CONTROL" echo "HV Connected";  handshake both; goto mm2end
  41.     if js2,mnp set s2 ""
  42. arq:    if "1||10" if is5,450 sp 450; echo "450 bps"; goto mm2end
  43.     if "1||10" sp 300 goto mm2end
  44.     if 5 sp 1200 goto mm2end
  45.     if 6 sp 2400 goto mm2end
  46.     if "du&&7" sp 9600 echo "9600 bps"; goto mm2end
  47.     if "7||12" sp 19200; goto mm2end
  48.     if 11 sp 9600; goto mm2end
  49. sorry:    echo "No Connect Message Detected."
  50.     return
  51. mm2end:    set s9 "y"
  52.         if js1,mnp sleep 15    : for gliches in MM224E
  53.     return
  54.  
  55.  
  56.  
  57.     : initmm initializes the MultiTech error correcting V32 NVRAM 
  58.     : Change &E14 to &E15 to enable MNP compression
  59.     : "call initmm,aa" for Unix or VMS dial-in (NOT YAM HOST OPERATION!!)
  60. initmodem    speed 9600;  pat; pat 0l OK; pat 1 ERROR
  61.     echo "Initializing MultiModem V32"
  62.     put "ATE1Q0\r";  wait -f5
  63.     put "AT &F &C1 E1 Q0 V1 X4 B1 &E0 S0=0 S7=45 S11=80 Q0\r"; wait -f5
  64.     if 1 echo "ERROR: cycle power on the modem and retry this script"; abort
  65.     put "AT &D3 &C1 &T5 &E7 &E8 &E10 &E14 \44BA1 &B1\r"; wait -f5
  66.     if jjs0,,aa put "ATE0 Q2 S0=1 S7=18\r";  wait -f5
  67.     put at&w\r; wait -f5
  68.     return
  69.  
  70.  
  71. call2    bye; sp 19200
  72.     gosub waketb; pat 1 OK
  73.     put "ATX4 Q0 &Q0 H0 M0 B1 S0=1 &E1 &E4 &E14 \44BA0 &B0\r"; wait -f2
  74.     handshake on
  75.     return
  76. call1    bye; bye; sp 19200; handshake off; gosub waketb; putw ATM0H1\r"
  77.     return
  78.